Top 10k strings from Mini Grand National (19xx)(Martin Cowie).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /

Back to the directory listing

   2 draw board
   1 define var
   1 define char
   1 YOU'VE WON
   1 W$="RUBSTIC"
   1 W$="RED RUM"
   1 W$="RAG TRADE"
   1 W$="HALLO DANDY"
   1 W$="GRITTER"
   1 W$="CORBIERE"
   1 W$="BEN NEVIS"
   1 W$="ALDANITI"
   1 T$="RUBSTIC"
   1 T$="RED RUM"
   1 T$="RAG TRADE"
   1 T$="HALLO DANDY"
   1 T$="GRITTAR"
   1 T$="CORBIERE"
   1 T$="BEN NEVIS"
   1 T$="ALDANITI"
   1 Q(N)=(B/10
   1 MONEY=MONEY-BET
   1 MONEY=MONEY+(ODD*BET)+BET
   1 HORSE>MUCH
   1 DEFINE VAR
   1 DEFINE CHAR
   1 B>~~><BB>B~
   1 B>@@><B<>|~
   1 ;T$;" CAME IN FIRST"
   1 ;"YOUR RETURN PLUS YOUR STAKE IS  `";(ODD*BET)+BET
   1 ;"YOU STAKED `";BET
   1 ;"YOU HAVE `";MONEY
   1 ;"YOU HAVE JUST ENTERED A BETTING SHOP. YOU HAVE `10 IN YOUR
   1 ;"WHICH HORSE DO YOU WISH TO BACK "
   1 ;"PRESS ~P~ TO PLAY"
   1 ;"PRESS ~P~ TO CONTINUE"
   1 ;"PRESS ~P~ TO COINTINUE"
   1 ;"PRESS ANY KEY TO CONTINUE"
   1 ;"MINI GRAND NATIONAL":
   1 ;"HOW MUCH DO YOU WISH TO BET"
   1 ;"HORSES 1 TO ";MUCH;" ARE RUNNING"
   1 ;"GOOD LUCK"
   1 ;"FORM   HORSE
   1 ;"END OF GAME"
   1 ;"BETTING CARD":
   1 ;"BET=`";BET
   1 ;"AT ODDS OF ";ODD;" TO 1"
   1 **MINI GRAND NATIONAL**
   1 **FOR THE 48K SPECTRUM*
   1 ***BY MARTIN.I.COWIE***
   1 );"   RUBSTIC
   1 );"   RED RUM
   1 );"   RAG TRADE
   1 );"   HALLO DANDY   4"
   1 );"   GRITTAR
   1 );"   CORBIERE
   1 );"   BEN NEVIS
   1 );"   ALDANITI
   1 "NUMBER=";HORSE
   1 "MONEY LEFT=`";MONEY
   1 "HORSE=";HORSE
   1 "  YOU STAKED `";BET
   1 "  YOU HAVE `";MONEY;" LEFT"
   1 "  ";W$;" WON SO YOU LOSE"
   1  POCKET AND DECIDE TO PLACE A BETON THE NEXT RACE. YOUR HORSE    WINS AT 4-1 GIVING YOU A TOTAL  OF `50. BY NOW YOU ARE HOOKED ONHORSE RACING AND DECIDE TO TRY  AND MAKE YOURSELF A MILLIONAIRE."